    With ActiveSheet.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Selection.Columns(6), Order:=xlDescending
        .SetRange Selection
        .Apply
    End With
